/*******************************************************************************************
 * Copyright (c) 2006-2009 Alex Robson, Rob Simmons, Craig Israel, and Rachel Twyford
 *
 * Use of this software in any form requires that you have both 
 * read and agreed to the following terms:
 *
 * Permission is hereby granted, free of charge, to any person obtaining
 * a copy of this software and associated documentation files (the "Software"), 
 * to deal in the Software without restriction, including without limitation 
 * the rights to use, copy, modify, merge, publish, distribute, sublicense, 
 * and/or sell copies of the Software, and to permit persons to whom the
 * Software is furnished to do so, subject to the following conditions: 
 *
 * Redistributions of source code must retain the above copyright
 * notice, this list of conditions and the following disclaimer.
 * Redistributions in binary form must reproduce the above copyright notice, 
 * this list of conditions and the following disclaimer in the 
 * documentation and/or other materials provided with the distribution.
 * Neither the name of Nvigorate nor the names of its contributors may 
 * be used to endorse or promote products derived from this software without 
 * specific prior written permission. 
 *
 * THIS SOFTWARE IS PROVIDED "AS IS" AND ANY
 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
 * DISCLAIMED. IN NO EVENT SHALL ANY CONTRIBUTOR BE LIABLE FOR ANY
 * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 * ****************************************************************************************/

using System;
using System.Collections.Generic;
using NJ = Ninject.Core.Infrastructure;
using Nvigorate.Common;
using Nvigorate.Common.Reflection;
using Nvigorate.Extensions;
using Nvigorate.Relational.Binding;
using Nvigorate.Relational.Mapping.Interface;
using Nvigorate.Relational.Record;
using Nvigorate.Relational.State;
using System.Linq;

namespace Nvigorate.Relational.Repository
{
    public abstract class Binder
    {
        public IBindingMap Map { get; set; }

        public abstract IEnumerable<object> Bind(IEnumerable<IRecord> records);

        public static Binder GetTypedBinder(Type expectedType, IBindingMap map)
        {
            return (Binder)Activator.CreateInstance(typeof(Binder<>).MakeGenericType(expectedType)
                , new object[] { map });
        }
    }

    public class Binder<T> : Binder
        where T : class, new()
    {
        protected List<Tuple<Type, NJ.Setter>> _setters;
        protected List<string> _assignments;
        protected NJ.FactoryMethod _factory;

        public override IEnumerable<object> Bind(IEnumerable<IRecord> records)
        {
            if (records.Count() < 1)
                return new object[] {};

            _assignments =
                Enumerable.First(records)
                    .FieldNames.Intersect(
                        Map.GetAssignmentsByPredicate(a => !a.IsConstructorArgument && !a.ForeignKey).Select(a => a.Target.Field)).ToList();

            _setters = Enumerable.ToList(new DynamicAccessorCache().GetSettersForMembers(typeof (T), _assignments));

            return records.Select<IRecord, object>(GetInstance);
        }

        protected T GetInstance(IRecord record)
        {
            //var instance = new T();
            var instance = (T) _factory();
            var tracked = instance as ITrackState;
            if (tracked != null)
                tracked.Deserializing = true;

            int index = 0;
            _assignments.ForEach(f => 
                                {
                                          var setter = _setters[index++];
                                          setter.Value2.Invoke(instance, MrCastastic.CastIt(setter.Value1, record[f]));
                                });

            if (tracked != null)
            {
                Map.MarkPersistedSources(tracked.InstanceState);
                tracked.InstanceState.ClearDirtyState();
                tracked.Deserializing = false;
            }
            return instance;
        }

        public Binder(IBindingMap map)
        {
            Map = map;
            _factory = NJ.DynamicMethodFactory.CreateFactoryMethod(typeof (T).GetConstructor(new Type[] {}));
        }
    }
}